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PREFACE 


This release serves as a preliminary user document and supplement 
to the forthcoming FORTRAN II reference manual for UNIVAC Solid- 
State Systems (UP 3843). It contains a brief description of the 
FORTRAN II compiler, and a machine-generated annotated process 
chart of the compiler. 


The chart, beginning on page 6, was produced as a by-product of 

a special-purpose compiler used in developing the FORTRAN II com- 
piler, and is reproduced directly from a copy printed by the USS 
Printer, Standard charting techniques are generally followed, 
with the following alterations in symbology to accommodate these 
techniques to the characters available on the Printer: 


The Operation Box (rectangle) is formed by lines of hyphens 
above and below, colons at left and right, and periods at 
corners, 


The Decision Box (oblong) is formed by lines of hyphens above 
and below, and sets of parentheses arranged as (at left and) 
at right. 


Connecting lines are indicated by rows of periods (horizontal), 
colons (verticle), and 0's (at corners and as connectors), 


Direction of flow is indicated by parentheses representing 
arrows, An arrow pointing to the right is indicated by ), and 
arrow pointing left is indicated by (. 


Entrances are indicated by (---IN---)3 exits, by EXIT; and 
remote connectors, by symbolic entries referring to subheadings 
in the accompanying annotation. 


The reader should note that "missing" page numbers have been 
omitted in order to keep double pages facing each other. 


Blank pages have been inserted where necessary to keep the first 
and second pages of double-page routines facing each other. 
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1. FORTRAN II Compiler Pass 1 


The translator is divided into two major co-routines, 'SCAN' 
and 'GEN', : 


SCAN has the duty of reading cards, condensing identifiers 
and constants into single entities and to feed items, ina 
convenient internal code, one at a time to GEN, 


GEN has the duty of producing object code from these items, 
Control is passed between GEN and SCAN in a fashion such that 
each routine looks like a subroutine of the other. 


The program begins by printing the title line,feeding a card, 
and going to the initialization routine, STEP 21. 


TABLE OF CONTENTS 
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L, Linked Memory Subroutines... . eee eee eee 12 
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W. Input/Output (Read Punch Print) .....s2.-2-eeee 46 
X, Processing Format String ..-+«-eeeeeceeeeee YH 
Zz. Initialization and Termination ...-e-eeeeceee 49 


TABLE OF FORMATS 
Information inside the compiler is treated in two principal formats, 
one for the symbol table entries in the scanner, and another for 
generator co-routine. 
Symbol table equivalents are in the format 

KM AAAA LLLL 
where LLLL is a link to the next symbol, for searching 


K equals O: Simple Variable 
M is O: No memory assignment as yet AAAA is OQOO0O 
Mis 1: Assigned AAAA in unique storage 
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M is 2: Equivalenced, not yet assigned, AAAA is 
link to other members of the equivalence 


class. 
M is 3: Assigned AAAA in common. 
M is 4: A formal parameter, whose subroutines are as- 
signed AAAA, AAAA+4, and AAAA+2 in unique. 
Mis 5 The symbol is a 10 digit constant. If AAAA 


is 0, this constant has not been needed in 
object program yet, else it is assigned to 
location AAAA in unique. 


K equals 3: Array 


AAAA links to the dimension table entry, M is ignored. 
The dimension table has N+1 entries if there are N sub- 
scripts to this array. 


AAAA+0: 3 M BBBB RRRR 
AAAA+1: © O TITT SSSSs 
AAAA+2:3 0 0 CCCC 0000 
AAAA+3:3 O 0 cccc 0000 ETC 


SSSS is link back to symbol table entry. 


CCCC words, if present, are links to symbol table entries 
for constants (except for the last dimension). 


TTTT is the total length of the array 
M is O: No memory assignment has been made as yet, 


BBBB is 0. 


M is 1: The address BBBB is for A(1), i.e. the first 
cell of the array, in unique storage, 


M is 2: Equivalenced array A(RRRR), BBBB is link to 
other elements in equivalence class. 


M is 3: Same as M equal to 1 except common storage. 
Mis 4: Formal parameter, base address is stored in 
BBBB of unique storage. 
K equals 5: Label 
AAAA is the assignment in program storage. 
M is O: Unassigned as yet. 


Mis 1: Temporary assignment for Do Loops. AAAA links 
to an item in Llist, 


AAAA+O: O2 TITT XXXX 
AAAA+1: SS SSSS LLLL 


where XXXX is Llist link, 
TTTT is temporary assignment of the label, 
SS SSSS is like a permanent symbol table 
entry for labels, and LLLL is a link back 
to the symbol table entry. 


Mis 2: AAAA is the assignment for the label. 


K equals 6: Function 
Mis 23 Assigned AAAA in program storage. 
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Mis 5: Assigned AAAA, external reference. 
M is 9: Special operator for scanner only. 


K equals 7, 8, or 9 Operator, reserved word. 
KM AAAA is code for operators. 


In equivalence loops, a special meaning is given for K equal to 
9, when M AAAA is a change in reference point of the equivalence 
loop, plus 50000. 
Generator Code Formats 
K T SSSS COOP 
For operands, P is the sign, O plus, 5 minus 
T is the type: O floating, 1 integer, 2 unspecified. 


K equals 0: Simple variable, or a constant (if C is 5). 
SSSS is a link to the corresponding symbol 
table entry. 


K equals 1: Computed result in rA. 
equals 2: Index Register 1 (do variable). 


A 


K equals 3: Array 
S933 links to dimension table entry when this 
array is sent from scan, and then after the 
subscript for the array is processed, 8SSS 
links to an entry on the ARAS list. See rou- 
tine A for the formats in ARAS. 


K equals 4 Temp Storage 


SSSS is the assignment in unique. 


K equals 5: Label 
Here SSSS is a link to the corresponding 
symbol table entry. 


K equals 6: Function 
SSSS is link to symbol table 


K equals 7: Special 
In the operand stack this is sometimes used 
for an array without a subscript. 


K equals 7, 8, or 9: Operator 
KT SSSS is the same as the symbol table entry 
KM AAAA, KT is the priority of the operator. 
99 means action for the operator immediately 
upon entry to GEN. 98 means the operator is 
a UNARY operator. Else T equal to 1, 3, 6, 
or 8 means immediate action before entering 
on the operator stack (see GEN control) 


Reserved word codes which follow give the symbol table entries 
for all reserved identifiers and special characters, together 
with a symbolic reference corresponding to the assembly listing 
of 

)) )FORTRAN( (( 


UP 3843.1 3 





Reserved word codes 


ITEM: 


oe 3 HBAN I 


+ = 


FUNCTION 
SUBROUTINE 
READ 
PRINT 
FORMAT 
RETURN 
DIMENSION 
COMMON 
EQUIVLENCE 
SIN 


CODE: 


994-1 050000 
9941 04.0000 
8441150000 
9941010000 
9941110000 
7344 140000 
7000000000 
784-1 130000 
9941050000 
994-1 170000 
9941010000 
7000000000 
7341140000 
6941 320000 
6941 330000 
6941 370000 
6941 360000 
6940500000 
994-1 380000 
9941 310000 
9941 300000 
9941070000 
9941000000 
6940500000 
9841410000 
98414-20000 
9941430000 
9941440000 
9941450000 
9941460000 
9941470000 
9941490000 
994-1 500000 
9941 510000 
9941 520000 
994-1 530000 
9841 200000 
9841 210000 
9841190000 
9841 220000 
9841230000 
9841 24-0000 
9841250000 
984-1 260000 
9841 54-0000 
9841 550000 
994-1 590000 
9941600000 
9841610000 
794-1 6 30000 
8041620000 
6941 660000 


SYMBOLIC: 


99 SIGN& 
99 SIGN- 
84 SIGN/ 
99 SIGN% 
99 SIGN* 
73 SIGN$ 
70 0000 
78 SIGN, 
99 SIGN& 
99 SIGN# 
99 SIGN% 
70 0000 
73 SIGNS 
69 WDNO 
69 WDLIS 
69 WDCOR 
69 WDTRC 
69 SCAN‘ 
99 WDTRU 
99 WDGO 
99 ASS1 
99 WDIF 
99 WDDO 
69 SCAN1 
98 WDPOZ 
98 WDSTP 
99 WDEND 
99 WDFUN 
99 WDSUB 
99 WDRED 
99 WDPRT 
99 WDFMT 
99 WDRTN 
99 WDDIM 
99 WDCOM 
99 WDEQU 
98 SINF 
98 COSF 
98 SQRTF 
98 TANF 
98 ATANF 
98 LNF 
98 EXPF 
98 ABSF 
98 FLOTF 
98 FIXF 
99 WDPCH 
99 WDCAL 
98 BCOMP 
79 BOR 
80 BLAND 
69 WDPRG 
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